home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Tools / SFX-Player / MelodyRecGUI / MelodyRecGUI-de next >
Text File  |  2000-05-08  |  6KB  |  289 lines
  1. /* $VER: MelodyRec.rexx 1.0.4 (14.02.1999) © mEDi of dSd E-Mail:mEDi_dSd@GMX.DE */
  2. /*
  3.  
  4.  
  5. 22.01.99    V1.0.1    Erste laufende version
  6. 24.01.99    V1.0.2    2 mini Bugs durch Ramboy@USA.NET behoben
  7. 25.01.99    V1.0.3    erste veröffentlichte Version 
  8. 14.02.99    V1.0.4    Englische Version (RAMBOY) und Fehler behoben (RAMBOY)
  9.  
  10. */
  11.  
  12.  
  13.  
  14. /* rexxsupport.library öffnen */
  15.  
  16. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
  17.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  18.       say "Konnte das rexxsupport.library nicht öffnen"
  19.       EXIT(10)
  20.       END
  21.  
  22.  
  23. Signal On Syntax
  24. Signal On IOErr
  25. Signal off failure
  26.  
  27.  
  28. CALL PRAGMA("PRIORITY",1)
  29.  
  30. /* rexxreqtools.library öffnen */
  31.  
  32. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  33.    IF ~ADDLIB('rexxreqtools.library',10,-30,0) THEN
  34.       EXIT(10)
  35.  
  36. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  37.    IF ~ADDLIB('tritonrexx.library',5,-30,0) THEN DO
  38.       SAY 'Kann die <tritonrexx.library> nicht öffnen!'
  39.       EXIT(10)
  40.    END
  41. END
  42.  
  43. OPTIONS RESULTS
  44. Version = "1.0"
  45. Release = "4"
  46. DATE    = "14.02.1999"
  47.  
  48. NL = '0a'x
  49.  
  50.  
  51. MainProgramm    = "MelodyRec"        /* MelodyRec pfade z.B. "sys:pro/MelodyRec" usw. */
  52. main_UNIT    = "0"            /* def audiounit */
  53. main_AudioName    = "mel1200audio.device"    /* def audioname */
  54.  
  55. main_BITS_LIST.0 = 3
  56. main_BITS_LIST.1 = 8
  57. main_BITS_LIST.2 = 16
  58. main_BITS_LIST.3 = 32
  59.  
  60. call init_windows
  61.  
  62.  
  63. app = TR_CREATEAPP('TRCA_Name MelodyRec.rexx',
  64.                    'TRCA_LongName "MelodyRec GUI © MEDI [_- DSD -_]"',
  65.                    'TRCA_Info     "MelodyRec GUI"',
  66.                    'TRCA_Version  'Version,
  67.                    'TRCA_Release  'Release,
  68.                    'TRCA_Date     'DATE,
  69.                    'TAG_END')
  70.  
  71. IF app ~= '00000000'x THEN DO
  72.  
  73.    window = TR_OPENPROJECT(app,windowtags)
  74.  
  75.    IF window ~= '00000000'x THEN DO
  76.       ende = 0
  77.  
  78.       DO WHILE ende ~= 1
  79.          CALL TR_WAIT(app,'')
  80.  
  81.          DO WHILE TR_HANDLEMSG(app,'event')
  82.  
  83.  
  84.  
  85. /*say '************'
  86. say event.trm_class
  87. say event.trm_id
  88. say '*************'*/
  89.  
  90.  
  91. /* 'TRMS_ACTION' START */
  92.  
  93.     IF event.trm_class = 'TRMS_ACTION' THEN DO
  94.         SELECT
  95.  
  96.  
  97. /* QUIT */
  98.         WHEN event.trm_id = 1 THEN ENDE = 1
  99.  
  100. /* SELECT new file */
  101.         WHEN event.trm_id = 21 THEN call select_new_file
  102.  
  103. /* RUN */
  104.         WHEN event.trm_id = 30 THEN call RUN_melodyREC
  105.  
  106.  
  107.  
  108. /* 'TRMS_ACTION' END */
  109.         OTHERWISE
  110.         NOP
  111.         END
  112.     END
  113.  
  114.  
  115.  
  116.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  117.                ende = 1
  118.          END
  119.       END
  120.  
  121.       CALL TR_CLOSEPROJECT(window)
  122.    END
  123.  
  124.    CALL TR_DELETEAPP(app)
  125. END
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135. EXIT
  136.  
  137. /***********************************************************************************/
  138. /**********************************************************************************/
  139.  
  140. select_new_file:
  141.  
  142.  
  143.     main_new_files = rtfilerequest(, , "Bitte neuen Dateinamen angeben", ,"rtfi_buffer=true rtfi_matchpat=(#?")
  144.     if main_new_files = "" then return
  145.  
  146. call TR_SETATTRIBUTE(window,20,'TROB_String',main_new_files)
  147.  
  148. Return
  149.  
  150.  
  151. RUN_melodyREC:
  152.                 /* FILENAME/A,AUDIONAME/K,AUDIOUNIT/N/K,BITS/ */
  153.  
  154. main_FILENAME    = '"'TR_GetAttribute(window,20,'TROB_String')'"'
  155. main_AUDIONAME    = TR_GetAttribute(window,10,'TROB_String')
  156. main_AUDIOUNIT    = TR_GetAttribute(window,11,'TROB_String')
  157.  
  158.     dummy    = TR_GetAttribute(window,12,'TRAT_Value')+1
  159. main_BITS    = main_BITS_LIST.dummy
  160.  
  161.  
  162. if main_FILENAME = '"'||'"' | main_AUDIONAME = "" | main_AUDIOUNIT = "" then return
  163.  
  164.  
  165.  
  166. say "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit" main_AUDIOUNIT "bits" main_BITS
  167. address command  "RUN" MainProgramm main_FILENAME "audioname" main_AUDIONAME "audiounit"  main_AUDIOUNIT "bits" main_BITS
  168.  
  169.  
  170. call rtezrequest( "Stop drücken"NL,
  171.             "um Aufnahme"NL,
  172.             "abzubrechen",
  173.             , "   _STOP   ","MelodyRec GUI", ,
  174.             "rtez_flags=ezreqf_centertext rtez_defaultresponse=0")
  175.  
  176. address command "kill" "melodyRec"
  177.  
  178.  
  179.  
  180. Return
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193. /* Error Log funktion © 1996-99 mEDi of dSd **********************************/
  194.  
  195. SYNTAX:
  196. IOERR:
  197. failure:
  198. error_num = rc
  199. error_Sigl = Sigl
  200.  
  201. if exists("s:Error_text_D.txt") then
  202.         call READLINES("s:Error_text_D.txt",error_num,1,"%s %1024c",dummy error_txt_d)
  203.  
  204.  
  205. error_log_msg.0 = 8
  206. error_log_msg.1 = "*************************************************"
  207. error_log_msg.2 = "Fehler "error_num" in Zeile:" Sigl
  208. error_log_msg.3 = "- Zeile wo der fehler aufgetreten ist -----------"
  209. error_log_msg.4 = SOURCELINE(sigl)
  210. error_log_msg.5 = "- Erleuterung -----------------------------------"
  211. error_log_msg.6 = "Deutsch : "error_txt_d.1
  212. error_log_msg.7 = "Original: "ERRORTEXT(error_num)
  213. error_log_msg.8 = "Programm: MelodyRec.rexx V"Version"."Release" ("DATE")"
  214.  
  215.  
  216. if ~WRITEFILE("t:Error.log",error_log_msg,append) THEN
  217.     call WRITEFILE("t:Error.log",error_log_msg,)
  218.  
  219. do i = 1 to error_log_msg.0
  220. say error_log_msg.i
  221. end
  222.  
  223.  
  224. if app ~= "APP" then
  225.     CALL TR_DELETEAPP(app)
  226.  
  227. EXIT
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237. INIT_Windows:
  238.  
  239.  
  240. windowtags =    WindowID(1),
  241.         WindowTitle('MelodyRec GUI v'Version||Release" ("DATE")"),
  242.         windowPosition(TRWP_DEFAULT),
  243.         'VertGroupA',
  244.             'Space',
  245.             NamedSeparator(' © 1999 mEDi of dSd'),
  246.             'Space',
  247.             'HorizGroup',
  248.                 'HorizGroup',
  249.                         'Space',
  250.                     text3("AudioName: ") 'Space' StringGadget(main_AudioName,10) 'TRAT_Value 32',
  251.                     'Space',
  252.                 'EndGroup',
  253.                     'Space',
  254.                 'HorizGroup' ,
  255.                         'Space',
  256.                     text3("UNIT:") StringGadget(main_UNIT,11) 'TRAT_Value 2',
  257.                         'Space',
  258.                     text3("BITS"),
  259.                     'Space',
  260.                     CycleGadget('main_BITS_LIST',1,12),
  261.                     'Space',
  262.                 'EndGroup',
  263.                     'Space',
  264.             'EndGroup',
  265.                     'Space',
  266.             'HorizGroupA',
  267.                     'Space',
  268.                 text3("File: "),
  269.                     'Space',
  270.                 StringGadget("",20) 'TRAT_Value 256',
  271.                     'Space',
  272.                 GetFileButton(21),
  273.                     'Space',
  274.             'EndGroup',
  275.                 'Space',
  276.             'HorizGroupS',
  277.                     'Space',
  278.                 Button("Aufnahme",30),
  279.                     'Space',
  280.                 Button("Beenden",1),
  281.                     'Space',
  282.             'EndGroup',
  283.                 'Space',
  284.         'EndGroup',
  285.         'EndProject'
  286.  
  287.  
  288. return
  289.